home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / tilt11.sit / Tilt 1.1 / card_6378.txt < prev    next >
Text File  |  1988-11-14  |  1KB  |  78 lines
  1. -- card: 6378 from stack: in.1
  2. -- bmap block id: 8021
  3. -- flags: 4000
  4. -- background id: 3235
  5. -- name: Opp1SL
  6. ----- HyperTalk script -----
  7. On OpenCard
  8.   global aimPoint
  9.   global defense
  10.   global oppDefense
  11.   global attacker
  12.   global CRTdefense
  13.   global CRToffense
  14.   global tempCompScore
  15.   global tempYouScore
  16.   global tempCompMiss
  17.   global tempYouMiss
  18.   global turn
  19.  
  20.  
  21.   if turn > 0 then
  22.     ChooseAim
  23.     defCRT
  24.     oppCRT
  25.     giveResults
  26.   end if
  27.  
  28. End OpenCard
  29.  
  30.  
  31. On chooseAim
  32.   global oppAim
  33.   Put the random of 10 into oppAim
  34. End chooseAim
  35.  
  36. On oppCRT
  37.   global defense
  38.   global attacker
  39.   Put 1 into attacker
  40.   if defense-20 = 1 then llCRT
  41.   if defense-20 = 2 then lrCRT
  42.   if defense-20 = 3 then ssCRT
  43.   if defense-20 = 4 then shCRT
  44.   if defense-20 = 5 then slCRT
  45.   if defense-20 = 6 then lhCRT
  46. End oppCRT
  47.  
  48. On defCRT
  49.   global attacker
  50.   put 2 into attacker
  51.   slCRT
  52. End defCRT
  53.  
  54.  
  55.  
  56.  
  57. -- part contents for background part 3
  58. ----- text -----
  59. Crests Claimed: 
  60. Opponents Unhorsed: 
  61. Lances Broken: 
  62. Lances Total: 
  63.  
  64. -- part contents for background part 4
  65. ----- text -----
  66. Crests Claimed: 
  67. Opponents Unhorsed: 
  68. Lances Broken: 
  69. Lances Total: 
  70.  
  71. -- part contents for background part 2
  72. ----- text -----
  73. Your Opponent Aimed At:
  74.                          
  75.                          
  76.                          
  77.                          
  78.